home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-01-01 | 1.2 KB | 28 lines | [TEXT/MPS ] |
-
- ALPS begin
-
- /W1`{ALPS begin /_prcs? xdef/_ortnt
- xdef dup null ne{_prcs?{findcmykprocesscolor}{findcmykcustomcolor}ifelse}if
- /_orclr xdef/_cjc?/SetORColorProc _prcs? _orclr _ortnt n2` false setoverprint
- /_gop false def/_spotOR? F def Y2` a3`/$clrOverride T def end}bdef
-
- /t1`{BMT begin userdict begin}bdef
- /u1`{end end} bdef
-
- /G1`{fontget/_fDict xdef wcu^ _fDict/FontInfo known {
- isWinPS _fDict /FontType get 3 eq and
- {_dFontScale}{_fDict /FontMatrix get 3 get} ifelse mul/_uScale xdef _fDict/FontInfo get dup
- /UnderlinePosition known not {dup/UnderlinePosition get _uScale mul/_uPosition xdef
- }{/_uPosition _dUPosition _uScale mul def}ifelse dup/UnderlineThickness known not{
- dup/UnderlineThickness get _uScale mul/_uThickness xdef}{/_uThickness
- _dUThickness _uScale mul def}ifelse pop}{_dFontScale mul/_uScale xdef
- /_uPosition _dUPosition _uScale mul def/_uThickness _dUThickness _uScale mul
- def}ifelse/_uOThickness _BFontUOThick _uScale mul def _fDict/PaintType known{
- _fDict/PaintType get 2 eq{_fDict/StrokeWidth known{/_uOThickness _fDict
- /StrokeWidth get _uScale mul def}{1 0 _fDict/FontMatrix get dtransform dup mul
- exch dup mul add sqrt _OutlineWeight mul _uScale mul/_uOThickness xdef}ifelse}
- if}if}bdef
-
- end
-
-